﻿Namespace ConsoleTypes

    Public MustInherit Class general
        Public Property img As ImageSource
        Public Property message As String
        Public Property detail As String
        Public Property heure As String = Now.ToString("HH:mm:ss")
    End Class

    Public Class erreur : Inherits general

        Sub New(ByVal _desc As String, ByVal _det As String)
            Me.message = _desc
            Me.detail = _det
            Me.img = My.Resources.ic_error.ToImageSource
        End Sub

    End Class

    Public Class msg : Inherits general
        Sub New(ByVal _desc As String, ByVal _det As String)
            Me.message = _desc
            Me.detail = _det
            Me.img = My.Resources.ic_info.ToImageSource
        End Sub

    End Class

    Public Class ok : Inherits general
        Sub New(ByVal _desc As String, ByVal _det As String)
            Me.message = _desc
            Me.detail = _det
            Me.img = My.Resources.ic_accept.ToImageSource
        End Sub

    End Class

    Public Class warning : Inherits general
        Sub New(ByVal _desc As String, ByVal _det As String)
            Me.message = _desc
            Me.detail = _det
            Me.img = My.Resources.ic_warning.ToImageSource
        End Sub

    End Class

End Namespace



